home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 August: Tool Chest / Dev.CD Aug 98 TC.toast / Tool Chest / Testing & Debugging / Virtual User / Virtual User Current Release / Examples / Example External Tools / MathTool / MathTool Sample.vu < prev    next >
Encoding:
Text File  |  1998-06-04  |  2.8 KB  |  82 lines  |  [TEXT/MPS ]
  1. #
  2. #    File:        MathTool Sample.vu
  3. #    
  4. #    Written by:    David Gaxiola, Automation Systems, STM, MSSW
  5. #
  6. #    Contents:    MathTool interface test script.
  7. #
  8. #    Copyright © 1992 Apple Computer, Inc.  All rights reserved.
  9. #
  10. #    Change history:
  11. #            10/30/92    PRT        Added new examples, interspersed calls with printlns.
  12. #             8/11/92    DGG        Altered to use library
  13. #              8/3/92    DGG        Revised from earlier version.
  14. #            10/29/92    REM        Added a "Initialize" service call.
  15.  
  16. Libraries "MathTool.vulib";
  17.  
  18. script MathToolDemo(floatVals := {"1.5", "5.62"}, 
  19.                         longVals := {"22345223", "52223"},
  20.                         intVals := {"256", "16"})
  21. begin
  22.     global gPi;
  23.     global gE;
  24.     DefineMathGlobals();
  25.  
  26.     result := MathTool("Initialize", false);  # false - launch on the host
  27.  
  28.     println "MathTool !!!∂n************";
  29.     println "School is now in session!∂n";
  30.     
  31.     println "Floating Point Ops∂n------------------";
  32.     x := MathTool("fplus", floatVals[1], floatVals[2]);
  33.     println "fplus command: ",floatVals[1]," + ",floatVals[2]," = ", x[2];
  34.     x := MathTool("fminus", floatVals[1], floatVals[2]);
  35.     println "fminus command: ",floatVals[1]," - ",floatVals[2]," = ", x[2];
  36.     x := MathTool("ftimes", floatVals[1], floatVals[2]);
  37.     println "ftimes command: ",floatVals[1]," * ",floatVals[2]," = ", x[2];
  38.     x := MathTool("fdivide", floatVals[1], floatVals[2]);
  39.     println "fdivide command: ",floatVals[1]," / ",floatVals[2]," = ", x[2];
  40.     x := MathTool("fcompare", floatVals[1], floatVals[2]);
  41.     print "fcompare command: ", floatVals[1];
  42.     if x[2] < 0
  43.         print " < ";
  44.     else if x[2] = 0
  45.         print " = ";
  46.     else
  47.         print " > ";
  48.     println floatVals[2];
  49.         
  50.     
  51.     println "∂nLong Integer Ops∂n----------------";
  52.     n := MathTool("lplus", longVals[1], longVals[2]);
  53.     println "lplus command: ",longVals[1]," + ",longVals[2]," = ", n[2];
  54.     n := MathTool("lminus", longVals[1], longVals[2]);
  55.     println "lminus command: ",longVals[1]," - ",longVals[2]," = ", n[2];
  56.     n := MathTool("ltimes", longVals[1], longVals[2]);
  57.     println "ltimes command: ",longVals[1]," * ",longVals[2]," = ", n[2];
  58.     n := MathTool("ldivide", longVals[1], longVals[2]);
  59.     println "ldivide command: ",longVals[1]," / ",longVals[2]," = ", n[2];
  60.     n := MathTool("lmod", longVals[1], longVals[2]);
  61.     println "lmod (remainder) command: ",longVals[1]," mod ",longVals[2]," = ", n[2];
  62.     x := MathTool("lcompare", longVals[1], longVals[2]);
  63.     print "lcompare command: ", longVals[1];
  64.     if x[2] < 0
  65.         print " < ";
  66.     else if x[2] = 0
  67.         print " = ";
  68.     else
  69.         print " > ";
  70.     println longVals[2];
  71.  
  72.  
  73.     println "∂nOther Operations∂n----------------";
  74.     x := MathTool("sqrt", intVals[1]);
  75.     println "sqrt command: sqrt(",intVals[1],") = ", x[2];
  76.     x := MathTool("power", intVals[1], intVals[2]);
  77.     println "power command: pow(",intVals[1],",",intVals[2],") = ", x[2];
  78.     x := MathTool("ln", gE);
  79.     println "log command: ln(",gE,") = ", x[2];
  80.  
  81.     println "### All done!  Class dismissed!";
  82. end;